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PREFACE 


Volume III is the continuation of a multi document set de- 
scribing VEHSIM. This volume includes a glossary, source code 
listing, flow charts of selected subroutines and listing of 
graphics package. The glossary is a listing of variables and 
preset alphanumeric variables used in processing input data. An 
attempt was made to include a description of all these variables. 
However, in some instances the subroutine that the stated variable 
Eelocaced im as all that as) listed. . Additional information on 
these variables can be obtained by examining the context of the 
variable use in that subroutine. The VEHSIM source code is simply 
a listing of the Fortran code. The flow charts were provided for 
the most commonly used subroutines. The graphics package provides 
the user with optional graphical capability. The applicability 
of these subroutines is determined by the users needs. Scanning 


engine/data by graphical output has proved useful. 
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Glossary for the VEHSIM progran 


DECEMBER 1930 


a0 Initial condition-acceleration 

ARi PRC1*#WGT 

MB2 FRC2*WGT 

AA3 FAC*CD*AREA 

AAY WGr/32.17 

Aas 14. /WRAD 

AAG BB1* (UF ET W+RARSQ*AIP) 

RA’ BBI*EARSQ 

a3a8 AAS=FRAR*ERAR 

AAS BB1* (EINER+RI2+AT1) 

Aalto 7.48052/(FSPSR¥*62. 426i 34) 

AAT] Converter pump inertia 

Aat2 Converter turbine inertia 

AASE Reguired acceleration for a constant acceleration 
segment 

ABP Wheel hub torque during current 


time step 


ABRO Same during previous time step 
ABROO Save old brake 
RBROPT? Dimensioned, but not used 
ACC ET “he current acceleration at the wheels 
ACCESS The name of a blocks common statement, 
a Elso , the mode parameter cof the OPEN statement 
ACcCcO Aeceleration 
accoo Old value of acceleration, 


accs Accessory rpm table array 


ACC" Accessory torgue table array 
ACON Accessory comment array 
ADSE Terminal distance specified at a relative 


segment end point 


REFFG Efficiency of the current gear 


AGRAT Gear ratio 

AIA Accesory input inertia array 

AIzZS Zecessory loss inertia array 

RIGIN Gear input inertia Ig,in 

AIGOUT Gear output inertia ig,out 

AIP Propshaft inertia 

AIW Wheel inertia ,Iw 

AI2 Torque converter turbine inertia 
AKC Coast converter input speed array 
BKD Drive converter capacity factor array Ke 
ALOSSC Horsepower loss in converter 

ALOSCO Same at previous time step 

ALOSSG Ebsolute value of horsepower losses 


within a gear bor 
LOSGO Same during preceding time step 


RLOSSE ABSolute value cf horsepower losses 
within a differential box 


ALOSRO Same at previous time step 


ALOSSL Absolute value of horsepower losses 
within converter 


ALOSZO Same at previous time step 


RNB Array of numbers of data points for all 
the accessories 


ANZ AE Z2ccessory name 


ADSC Passing clearance defining sequent 


APCS PASSING CLEARaXCE DEFINING THE CURRENT SESMENT END 


APOS Absolute mile post defining the current 
seqment end 


APPEND Command to cause a new file to be appanded an 
old file, effectively saving what has been done. 


APPN Recessory project, programmer number 
APROT Accessory protection code 
APHWO Constant % wide open throttle required for 


entire segment 


APWOO 0.97* BP HO 
AREB Vehicle frontal area (A) 
ARRIVE Logical flag indicating arrival at 


a requested acceleration 


ASEG Array of constant accelaration required 
by driving segments 


ATHOLLD Array of acceleration limits required 
for the drive segment 


ATHAR é Max rate of change for throttle for current 
driving segment 


ATSE Specified duration time limit for ending 
current driving segaent 


AVEL Constant velocity to be held for entire 
length of current driving segment 

AVSE Terminal velocity defining the end of current 

é driving segment (Ve,n) 
AXTOERQ Axle torque array,included with vehicle or time. 
BES DEV Data bas2 device 
BAS FIL Data base file. 
BAS PPN Data base project, programmer number. 


BE7 CE Logics for BATCH mode 


BB1 2*pi/60 
BB2 1/5252 
BINAEFY : BR parameter of the MODE option in the JPEN or CLOSE 


statement which defines the character set of an 
external file or record 


BY Variable used for the name of a part 

BORE Engine bore size 

BPER Current slope in % of grade being used 

BPERO Save the original route grade 

BPPH Projéct programmer number used for a directory 


of a part 


BPROT Protection code used for a directory of a part 
BSFC Brake specific fuel consumption (1b. /hp.-hr) 

BT Variable used for part type 

er favlely/ The sum of the percents of the engine hp-her for 


accessories, torgue converter, clutch, gear bor, 
differential, tire slip 


C2345 The sum of the percents of the engine hp-hr of the 
of the torgue converter, clutch, gear box, 
differential and tire slip 

C345 "he sum of the percents of the engine hp-hr of the 
clutch,gear box,differential, and tire slip. 

Cac Accessory energy loss accumulator 

ChE Zerodynamic drag loss accuaulator 

(e) Yi Percent total of the energy losses 

CARED Variable array used to indicate an input record. 

CBs © REFERENCED IN INPBAT 

CBR Brake loss accumulator 

CCL energy loss accurgulator 

ccs Torque converter comment array 


CCP PH Coast converter project, programmer number 


CCPEOT Coast converter protection code 

cD Vehicle drag coefficient (Cd) 

CDE Distance driven during acceleration 

CDBTE The date on which a file was read and written 
coc Sensisivity of the drag coefficient 

CDCR Distance driven during cruise 

CDD Distance driven during acceleration 

CDEBUG Ne The name of a block common statement 

CDI Distance driven during idle 

CDI As Toergue converte diameter 

CDIF Differential box energy loss accumulators 
CDP PH Drive converter project, programmer number 
CDPEOT Drive converter protection code 

CEA Engine energy used during acceleration 
CECR Engine energy used during cruise 

CED Engine energy used during deceleration 
CEDN Negative energy used during deceleration 
CEU Energy used during idle 

CENERG The present of the non-specific energy loses 
CFA Fuel consumed during acceleration 

CFB Fuel consumed during braking 

CFCR Fuel consumed during cruise 

CFD Fuel consumed during deceleration 

CFI Fuel consumed during idle 


CGB Gear box energy loss accumulator 


CHOOR The hour that the part was used on Colated 
CKE Kinetic energy of a car 
CES EP2 - Subroutine used to identify a 


particular type of output taska30400 


CeusCH logical flag used for the clutch being engaged 
or disengaged 

CNE NE Convert name 

CNT RL Block common name 

CNV NAM Array to hold the name of the drive 


and coast converter 


CNVTYP Array used to store the hollerith literals 
*DRIVE* and ‘COAST’. 

COAST Logical flag indicating drive or coast 
condition to select converter 


COL 1i 

COM ND Variable for the different types of commands, USE,MOD, etc. 

CONSHF Blocks common name 

CONST €./stroke 

CONTOUR Constant input torque (S.R.converter data 
sheet, line 'sasa") 

CPE Energy generated by gravity force at 
the route segment with a grade 

CPHI Cosine of the wind angle 

cpus The current drive segment CPU time 

EpoT Current cpu time 

CRO Wheel rolling energy loss 

CEOZ Kinetic enerqy of rotating inertias 


Ley) 


CST IMs 


CTA 


CTCR 


CTD 


err 


CTR 


CTRDEV 


CTR FIL 


COr 1 


COM ND 


COSTOR 


CTOTALD 


CTR 


Time accumulator of a shift 


TIME SPENT IN ACCELERATION 


Time spent in cruise 


Time spent in deceleration 


Time spent in idle 


Torque converter energy loss accumulator 


Constant used to define central device 


Constant used to define central file 


Constant used to define column one (1) 


“he command being read in a record 


CONVERTER CONSTANT TORQUE 


Shift tine 


Percent of total spent in criuse 
Time step in deceleration 
Percent of time spent at idle 


Tire energy loss accumulator 


Subtotal energy lossses ( a percent) 


Torque converter energy loss accumulator 


1-8 


CTR DEV 
CTR FIL 


CTE LD 


CIR PPN 


CUD 


CUMERN 


CUNENN 


CUMTE 


CUMFU 


CUEG 


CUNT 


DACC 


Control file device 

Name of the control file 

Macro subroutine used to debug output to 
an output device, i.e. tty 

Project, programmer number of control file 


Cumulative distance traveled in miles 


Energy generated by engine from the start 
to the current time step 


Energy generated by engine during coast mode 
from start to the current time step 


Cumulative fuel economy (MPG) (from start 
to the current time step 
weight of fuel consumed (LBs) 


Gallons of fuel consumed (cumulative value) 


Cumulative time elapsed in seconds 


Simulation time at the end of a shift 
Total simulation time 

Common block name 

The default number of cylinders (4) 
number of cylinders in the engine 


Distance traveled in feet during current time step 


variable usei to alter acceleration 


of vehicle during iteration 


DATE 


DET E 
DAT ET 
DAT PP 


DBESGIN 


DBLANK 


DCKE 


DCOS 


DCROT 


DD 
DDIS 


DEBUG 


DEBCHD 
DEBTAB 
DEFDT 


DELETE 


DEL RPM 


DEL TOR 
DEW 


DET PT 
DET RPM 
DFU 
DGF 


DGT 


referenced in inpdia 


Current date 
New data, data override 
Block common nare 


Variable in which DEBUG time begins 


B blank field 

Increment of kinetic energy of a car during 

a time step 

Drive schedule comment array 

Decrement of kinetic energy of rotating 

inertias 

Cumulative distance traveled in feet 

Distance traveled in miles during current time step 


Command used to get extra info beyond the run detail 
printout. It can be very useful for debugging runs that fail 


Same as DEBOG 
Array for debug commands 
The default time step to be used 


“his command along with the drpo command allow the 
user to delete parts from the data base 


Incremental cpm value. 

Incremental torque value. 

Incremental engine energy produced during 
time step 

Detent override point array 

Defent override speed array 

Incremental fuel consumed during time step 
Gear from 


Gear to 


DHFR Tengqth of time step in hours 


DHED 0.5*DHR 


DIALOG Command to ,place VEHSIN in dialogue madde. This mean 
that vehsim will accept commands from the terminal 
raher than a disk control file. Also, logical for 
dialogue sode. 


DIF . Difference between PTORO and TORQ 

DIFO Same for previous time step 

DISK Storage unit 

DISP Displacement or volume displaced by the pistons 


in the disk parts data file. 
Engine displacement 


DMPTIY Logical flag 
DNASE Driving Wereadue sade 
DRU MG Total # of gears 
DPPN Drive schedule project, programmer number 
DPROT Drive schedule protection code. 
DRPCHD Drop command allows the user to drop or delete a 
part from the data base. 

DRP HC Drop rpm when the clutch is activated 
DEP HE Bngdne rpm difference 
DEPMR Difference of rpm at the wheels 
DEVWND Wind speed used in the drive schedule 
DSAVE Distance travelled during a gear shift step 
DSEG Brray of relative distance end points for 

the driving segments 
DSHIFT Block common nage 
DSK Disk 
DSKCTR Subroutine used for opening data base and scratch files 
DSK DEL. Subr. used to drop or delete a rey Sees the data base 


DSKDIB Subroutine used to obtain a directory of the parts 
on the data base, 


DSTAR Set part name wild. 

DSTER® Starting absolute distance at the beginnirg 
of the driving segment 

DSTOP Variable in which DEBUG tige stops. 

DT Length of time step in seconds 

DTO initial time step 

DTIRE Time loss 

DTI PEO same as at previous time step 

DTO ; REFERENCED IN SIMCTR 

DrOT Passing clearance for the given segment 

DONCOM The comment of a part when uSing a directory 

DUM NY Duamy variable 

poupcrc Initial condition : accessory duty cycle (%), 


100% = default 


DWMASK REFERENCED IN INPBAT 

DYN New value for the dynamometer 

DYNAM Name of a block common statement. 

EBL FEFERENCED IN INPBAT 

ECOS Engine comment array 

ECO HE REFERENCED IN INPBAT 

EFFC =SR*TR =efficiency of converter 

EFFST REFERENCED IN INPBAT 

EINER Engine inertia 

EMAP Engine map containing torques,fuel rates, 
manifold vacuums, and throttle settings for 
engines 

EKA PO Array which contains the new values of engine map data 


EW& SE 


ENDD 


ERDE 


ENDLIA 


ENDRSG 


ENDRTE 


ENDSEG 


ENDAIN 
ENGINE 
ENXG1 
ENG2 
ENGMAP 
ENSIN 
ENT ERP 
EPPN 
EPROT 
ERAR 


ERAT 


EEPS# 
ERP HO 
EXxI? 


- 


EXP. 


Engine nane 


Loqical flag set when the end of the data on the 
control file is encountered. 


-Leqical flag for the end of file on a control file 


Logical flag indicating points limited to 
last time step in each driving segment 


Position of the end point of the drive segnent 


Logical flag indicating the end of an entire 
route 


Logical flag indicating an end of a driving 
cycle segment 

driving cycle seqment 

minimum engine speed at inpat 

Fortran subroutine 

Logical flag set for engine one (1) 

Logical flag set for engine two (2) 

Name of a block common statement 

Min engine speed as input. 

The sum of the interpolated torque points 
The particular code for a particular engine 
Protection code for a particular engine 
Efficiency of the rear axle differential 


array of gear coefficients 


Engine map speed points array 
Engine map speed point array 


Command to close all data base files, give the 
user the option of how to dispose of the print 
file and exits to the monitor. 


Intrinsic FORTRAN library functons used for 
exponentiation. The natural log base, e or 
2.728 raised to the value of the argument 


FACCEL 


FAERO 


FAEROO 


fbrake 
FDUS 


FEINST 


EFI 


PF10 


FGC 
FGRADE 


FGRADO 


FILES 

FILSPC 
FIR RPS 
PIRTOR 


FLOLT. 


PPGAL 
PRATE 


FRATEO 


PEATG 


PRATGO 


FEC1 - 
FRC2 


FROLL 


FROLLO 


Force at the wheels due to acceleration 


Force at the wheels due to aerodynamic drag 


Force at the wheels at previous time step 


REFEEENCED IN INPBAT 


Force losses at the wheels. 


INstantaneous value of mpg for the current time step 


Distance traveled by the car during the 
current time step 


Distance travelled during the previous tige step 


PEFEEENCED IN INPB2T 
Force at the wheels due to road grade 


Force at the wheels at the previous time step 


REFERENCED IN INPBAT 

Subroutine used to get the parameters for an output 
First value of rpm 

First value of torque 


Intrinsic FORTRAN library function which 
returns a real number from an integer argument 


Fael density. 
Fuel flow rate for current time step 


Fuel flow rate for the previous time step 


Fuel flow in gallons 


Fuel flow at the previous time step 


First constant used with tires. 
Second constant used with tires. 


Force at wheels due to rolling resistance 


Force at wheels at previous time step 


file. 


PSPECS 
PSPGR 


Si 


PWH EEL 


PWHEEO 


GAL HR 


feta) 
GCOs 
GDAT 
GEA HAAS 
GEANUS 
GET 
GN&ME 
GOBACK 
GOVLIN 
GOVPSTI 


GPPH 


GPROT 
GRAT 


GRP 


GHR 


HECCES 


New name of a VEHSIM output file. 
Puel specific gravity 


Distance travelled in feet from the start 
to the current tige step 


Total force at wheels 

Same at previous time step 
Average fuel consumption from start to the 
current time step (gallons/hours) 
Initial condition - gear 

Commert for a particular gear 
Logical flaq for 

Array of gear names 

Array of gear numbers 

Name of a block common statement 
Name of a gear 

subroutine 

REFERENCED IN INPBAT 

REFERENCED IN SIMNCTR 


Array used for the project and programmer 
nuaber for the gears 


Array used for the protection code for the gears. 
Array of gear ratos 


Brray used for the rpm of a particular gear. 
Array of torque values associated with a gear 
Array of gear ratios 

Time of drive occupied by given gear 


Variable for a write statement 


Const for hollerith literal &CCES- accesSOry 


HAXLE 
HBAaTCH 
HB?. ANK 


EBM EP 


HBOS 
CT 
HC2 
HCAR 


HCD 


HCOAST 
HCO MND 
HCO NS 
HCONT1 
HCONVE 
HCYLIY 
HDATA 
HDETEN 
HDIES 
HDIREC 
HDISPL 
HDN 
HDOWNS 
HDRIVE 
HDRIVI 


HDT ARO 


HENGIN 


Const term for hollerith literal AREER = area 


eenst for holerith literal AXLE 


Const used -!- BATCH 
=—i= BLANK 
=1- BM EP 
=1- BUS 
-1i- c1 
-1- C2 
-1- CAR 


Term used when the vehicle drag coeffisient 
(CD) is being used or modified. 


Const used for the hollerith literal cCoOaSstz 


Array used to store the name of the cOumands 


.REFERENCED IN SIMCTR 


REFERENCED IN INPBAT 


Const for the hollerith literal CONVE, converter 


-i- CYLIN 
-1- DATA 
=i DET EN 
-1- DIESEL 
YS DIREC 
-1- DISPL 


== DOWNS 
= = DRIVE 
=s= DRIVI 


Code word designating that throttle position for 
shifting lines in data sheet 12 (shift logic) is 
defined in deqrees 


Word equivalent to "ENGINE RPM® 


HFUEL 
HGALSR 
HGEAR 
HHP 
HIDLE 
HINEPT 
HINITI 
HINPBA 


ES 


HLBHAR 
HLIST 
HLO 2D 
HLOCKU 
ES 
HNILE 
HSILEP 
HeOD 


HHLOZD 


HOFF 
HOW 
HOUTPU 
HP1 


HP2 


HPA 


HP10 


HP20 


HPERT 


FUEL 
GALHR 
GEAR 
HP 
IDLE 
INEPT 


INITI 


Array for the histogram points. 


Constant for the Hollerith literal LB/HR 


Variable data array indicating the limit on 
the amount of output desired by the user. 


-1- 


-f= 


LOAD 
LOCKUP 
4 

MILE 


HILEP 


Array used when values are MODIFIED 


@j= 


=-j= 


NOT LOADED 


OFF 


OW 


Word equivalent to “OUTPUT RPM*® 


horsepower on engine side of torque convereter 


Horsepower on gearbox side of torque converter 


horsepower lost to accessory 


HP1 relating to the previous time step 


HP2 relating to the previous time step 


Variable array used for vehsig hollerith part 


literals, eg, 


engines,gears, etc. 


HPARTS 
RPBC 


HPCT. 


hpelo 
hpethr 
hpdyno 


HPE 


HPEO 


HPISTO 
HPST 
HPP 


HPPO 


HPS 


HPV EHLI 


-1- PARTS 
horsepower lost to brakes 


Horsepower at gearbor input 


REFERENCED IN INPDIA 
REFERENCED IN INPDIA 
REFERENCED IN INPDIA 


horsepower produced by engine at the current 
time step 


Horsepower produced by engine at previous tine step 


Constant for hollerith engine units PISTON 
total horsepower hours/mile for entire driving cycle 
horsepower between differential and gear box (at propshaft) 


Same at the previous time step 


REFERENCED IN INPBAT 


"ZV EHICLE®™ Mame if not included in the vehicle 


HSEC 
HSEGNE 
HSHIFT 
BSINGL 
HSLASH 
HSP EED 
HSTAR 
HST EP 
HST ROK 
HASUSSA 
HTHRCT 
HTI HE 
HTIRE 
HTORQU 


HTPSPD 


HTRUCK 
HUN 

HUP 

HUPSEI 
AYACUD 
HVEHIC 
HWEIGH 


HWH EEL 


horsepower delivered at the wheel 


Same at the previous 


= j- 


j= 


'REPERENCED IN INPBAT 


time step 


REAL 


ROUTE 


SEC 


-1- ,SEGME, indicating a egqment printout 


SREP 


-1-,SINGLE (spin loss for a single arle) 


-je- 
Throttle (% WOT) 

== 

-1- 


== 


REFERENCED IN INPBAT 


UPSHIFT 
DOWNSHIFT 


-1- 


eye 
SPEED 
STAR 
STEP 
STROK 


SUMMARY 


TINE 
TIRE 


TORQUE 


TRUCK 


UPSHI 


Vacuum (in Hg) Cost for Holerith VACUU 


Word equivalent to "VEHICLE MPH’ 


=1- 
-je=- 


WEIGH 


WHEEL 


HWIND 6 (OYUC WIND 


IABS. FORTRAN library intrinsic function taking absolute value 


an integer argument 
IB REFERENCED IN INPBA® 
LC REFERENCED IN INPBAT 
ICMD Inteqer variable for the command being processed. 
ICNTT | Counter for the number of parts 
ICRCHT Fortran function 
ICYCLE REFERENCED IK IWPBAT 
2G a> dae Number of cylinders 
IDATB REFERENCED IN INPBAT 
IDBUSO Counter for debug cosmand 
IDEBUG Counter for debug coasgand 
ee Printer for the number of drive scheduale record ts skip 
IECOND Integer variable for a particular error condition 
IENG Index indicating which engine being used 
IERRE Flaq: "failure to find speed/torque setting 
on the engine gap 
IER ROR Error counter 
IDRP REFERENCED IN SIMCTR 
IrrIx FORTRAN library intrinsic function whose argument is 
a real number and makes it an integer number 
IPLAG Return status flag (1= no end, 2=hword (alpha 


word when found on data cards stops input), 
3=x, 4=eof) 


IG REFERENCED IN INPBAT 
IGP =DGF+0,.001 Rounded numbers of 


‘gears to’ & ‘gear from* belonging to the 
shift logic sheet (gear from) 


IGct =DGT+0.001 me Jonwnnmm-== (GEAR TO) 


TAR REFERENCED IN SIMCTR 


Eas 

EE 
ILP™ 
IMAX 
TACT 
IsrIy 
rs0D 
ING 
IFNPBAT 
INPCOM 
ro 

TOC YL 
IP 
IPART 
IPSODE 


IPR NT 


TE 

IRS ODE 
eS 
ISEG 
ISEGi 
ISEG2 
ISEGO 


ESHIFT 


ISMNODE 
Se Res 
Nay | 
ITESK 


ITEERLT 


REFERENCED IN SIMCTR 

REFERENCED IN INPBAT 

EFEFERENCED IN SIMCTR 

Max engine speed on engine gap 
REFERENCED IN INPBAT 

Min engine speed on engine map 
EEFERENCED IN INPBAT 

Counter for the number of attempts to find a gear 
SUBROUTINE INPUT BATCH 

EEFERENCED IN INPBAT 

REFERENCED IN INPBAT 

REFERENCED IN INPBAT 

Printer to open a file for information 
REFERENCED IN SIMCTR 

REFERENCED IN SIMCTR 


Index indicating what component to print 
or use in disk routine 


REFERENCED IN INPDIA 

REFERENCED IN INPBAT 

Upshift , downshift flag (=1,2) 

current segqment number being executed (n) 
Integer variable for the start of a debug segment 
Integer variable for the end of a debug segment 
REFERENCED IN COMMS 


REPERENCED IW inpdia 


REFERENCED IN INPDIA 
REFERENCED IN INPBAT 
REFERENCED IN INPBAT 
Integer variable for new file specs. 


SUBROUTINE 


ITS AV 


ITT YWD 
ITYSEG 
Iv 
TUNIT 


IVAN 


JCT 
JENG 
JOBDEV 
JOB NU 8 


JOB PPH 


KEND 
KPT INE 
LBM EP 
LBRAKE 
LBS FC 
LCLTCH 
LCMD 
LDETE 
LDETNT 
LDETV 


LDIZS 


LDNSHF 
LDYWA 


LDYNOV 


REFERENCED IN INPBAT 


The current segment type being executed 


_@ype of a segment (of the drive schedule) 


being executed 

Logical flag for the printing width 
Array of segment types to driving cycle 
REFERENCED IN INPBAT 

Integer variable for output print unit 


REFERENCED IN INPBAT 


Integer const for tty unit 

array of engine numbers, one assigned for each gear 
Integer constant for job device 

Integer constant for job number 


Ineger constant for the project, programmer number 


LINE FLAG 

SUBROUTINE 

Logical flag for BMEP units used with engine data 
Logical flag indicating whether or not brake is applied 
Logical flag for BSFC units used with engine data 

Flag indicating that clutch is in or out 

Integer variable used to save command code 

Logical flag used to chack that detent units match shift 
line units 

Logical flaq equivalent to the word *DETEST JVERRIDE" 


Loqical flag used to check that detent units match line unit 


Logical flag used with DIESEL aodification 


Flag of downshift 


Only 2 wheels rotate (identifier) i‘logical flag for 
dynamometer simulation 
logical flag for override 


LEFIL Logical flag used to identify an end of file 


LENG Logical flag 

LFULL Logical flag to identify a converter as a speed or 
full converter 

LGALHR -1-GAL/HR units in engine data 

LGFEEE -1- PREE gear 

LHP . =1- hp units used in engine data 

LIDLE -1- idle condition. 

LIMPEN Logical flag indicating whether or not 


print is desired 


LLBER -j- lb/hr units in engine data 
LLef -i- line printer 
LISH -le for possible shifts or const gear 
LED LOK Logical flag indicating wheter to hold a 
constant gear 0227277222222 2227222222? 
LPH -1-= drive schedule segment specified by velocity 
LOCKS REFERENCED IN INPDIA 
LOCKUP Logical array for the gears being locked up 
LOOKUP Subroutine used to determine if a particular part is on file 
LPDP Togical flag for a part dump 
LPRNT Togical print flag 
LPS Logical flag used for PISTON units in engine data 
LPT DEV Parameter for DEVICE option of OPEN or CLOSE stategent 
LPTDSP Disposition of the print file 
LP FLL REFERENCED IN INPDIA 
LPTPPH Array containing the project and programmer # 


LPT PP 
LRPS 
LSAVE 


LSCALE 


Lo HES 


LTHR 


LSID 
LST SUL 
LSKIP 

LSTRTE 
LST EUP 


LSTSFC 
LTOR 
LTR RZ 


LVAC 
LVE BAX 
IL. VN EW 


LWOT 


MAPOK 


MAPOLD 
MES DEV 
BAS FIL 
MASKS 


MAS PPN 


Protection for printer filed 

Logical flag used for rpm units in engine data (convert 
Piston speed to rpa) : 

-1- indicate whether or not a print limit is in effect 
Zegical flaq indicating whether engine needs 

to be scaled 


Loqical flag indicating whether or not 
shift is required 


Logical, declares that lines of switch in data 
sheet 12 (shift logic) are defined in degrees 


-l-initialization simulation in DIALOGS mode 

-t- simulation in the DIALOG pode 

-1- skipping to the next command record or card 
-l- last section of a route 

Logical Start flag for drive schedule 

Logical flag for the Last segment of a drive scedule 
-i- TORQUE units in engine data 

Flag of: (rear end inertia=0/front rotating 
inertia=0) 

ZTogical flag: vacuum is used as a variable 

-l- identify whether axle is contained in the vehicle 
-j-new vehicle format (part being modified) 
Logical flag indicating whether or not to 

return only max and min throttle settings 

from engine routine 

Integer variable used to determine in what area of 
an engine map something is taking place 

USED TO save MAPOK 

Master device 

master file 

Name of a common block which contains a maSk array 


Master project, programmer number 


1-24 


MDL ERP 
MFIG 


MGOiLD 


NILE 


SIL im™ 


mISC 
MIN 


MOCON 
BODCMND 


NODE 


HODSL 


MXCALL 


EXNGCH 


820 


WA 
HACC 


NAEG 
RC 


HCO 
NCO AMD 
HCYCLE 
HDEB 
NDISK 
HDEP 


NGESZE 


Engine speed at which a gear is locked up 
Array used to play a modification part 


=NGEAR 


=CO SD 


logical flag indicating a limited printout 
every & many miles 


Name of a block common statement 


Minutes of drive from the start to the 
current time step 


Name of a block common statement 

The modify command changes the named component to a 
special value 

Option in an OPEN or CLOSE statement which defines 

the character set of an external file or record. 
Subroutine used to modify a component to a specified value 


=maximum (allowable) number of calls 
tort 7 subroutines 


Max # of attempts to find gear 

Max possible data points in a table of torque 
losses for a rear arle/gear 

Index of a data points of axle data array 
Number of accessory being used (M) 


Integer flag used to define a particular status for 
print limits. 


Integer variable for the number of characters ina 
word string. 


Integer constant for the number of commands 

min # of characters which aniquely defines a comsand 
Number of cycles of the engine type being used 

name of a block common statement 

Variable unit # for the data base or scratch file 
Percent of engine input dropped 


Number of gear being used during current time step 


NGEARO 


NGH 
NDRTE 


NDS EG 


WENG 
WGD 
HGCHur 


NGEAR 


WGOC2L 


NGOLD 


HGRLSS 


HGS EG 


NHLIST 
WHMOD 
NHPART 
NLS TCF 
HHOD 
HWA 
WHGS 


WOPART 


NPART 


HPARTS 


HPARTS 


Save the gear # 


Gear number printer 


Counter for route section 


Initial driving seqaent 


The nuaber of a particular engine (1 of2) 
Initial gear 
Nuaber of step in finding gear 


Gear nuspber 


Counts the number of calls to GOBACK 


Gear # during previous time step 


Number of data pointing a table of torque 
losses for a given gear 


Brray of constant gears used during driving 
cycle (if any) 


Vector array to uniquely define the min number of sharasters 
to define the type of print limit. 

Array used to store the min # of characters used to 

define the modify words 

Array used to store the min # of characters used to - 
define the name of the parts. 

Logical flaq to hint control file on line printer 

The # of items being modified 

# of point within table of accessory torgue losses 
Constant gear setting for a driving segment 

Subroutine used to find whether a part exists or not. 


Counter for fatal errors. 


Array used to hold the names of the parts 


The &-th location of the parts array when the dyno is 
being used. . 


Array used to determine if a part has been loaded. 


NPAX 


NPOINT 


BPSS 
RRAX 


BRAX 


HROIST 


HREC 


HEP S 


HRP XO 
BRPMP 
HETE 


HRTSEG 


BSEG 


NSPSEG 
ESS EAR 
3 fo) (38 Tiss 
NSKIP 


NSPTS 


HTBP 


HTORP 


Nuaber of data points in a table of torque 
losses in a given rear axle 


Number of data points read into array 


Number of points in a particular array 
Nuaber of rear arles 


Total number of tables of rear axle 
torque loss characteristics 


Total number of route segments in the route 
being used (N) 


Integer variable for the number of records 


Array containing number of speed points in 
each engine map 


Number of points actually read into an array 
Index used for speed points 
Pointer for the route record 


Current number of the route segment being 
executed 


The number of segments in the driving cycle 


Number of shifts during a particular segment 
Upshift and downshift accuaulator 

Number of shifts for a particular gear 
Number of records to skip 


Array containing number of data points in each 
shift line 


Index of the data values where the torgue 
converter break point exits 


=NTORP = number of data points read in an 


array(s) of SR< TE 


=NTORP ooo 


Array containing the number of torque points 
for each speed point on the engine map 


Number of data points read (into array) 


NUSG 


NOMBSL 


NOG 


NUM PAR 
SWRCNT 
NWXTCRD 
NXT PG 


OBO RE 


ODI SP 


OLDMHAP 


OLDVAL 


OST ROK 


SOT CHD 


PBHEP 


PCKE 


PCPE 
PCROT 


PCS EG 


PCT HF 


PGALHE 


Total number of gears being used by the 
thansmission 


Rusber of lines read froa 


'shift logic’ data sheet 


Total number of gears being used by the 
transmission (ie) 


Counter for the number of part types 
Fortran function 
Next card or record 


Next page counter. 


Save the engine bore 


Save the engine displacement. 


Save old map 


Array used to hold those values which can be modified. 
Save the engine stroke length 
The output command allows the user to specify the 


Name of the output print file 


Logical flag 
Kinetic energy 


Potential energy 
Rotating inertia 


Array containing passing clearance 


% of wide open throttle for the given value 
of torgue 2 


Modified value of upshift 
Modified value of downshift 
Percent engine wide open throttle 


Logical flag for gal/hr units used with engine 


PHI 
PHIO 


PHP 


PPHPHRE 
PNA SE 


PRINT6 
PRNDIS 
PRELIM 
PRNOUT 


PST 
PTO RQ 


PwOoT 
RAR 
BARSQ 


RAT 


RCO EF 
RCOFF 
RECOM 

RCRCHT 


RENTI 
RDIST 


RDLD 
REA DPD 


REM EP 


RENAME 


wind angle 
Save the wind angle 


Logical flag 


Total fuel lbs/Hp-hr used during the entire 
driving cycle 


=CNAME 


Output unit 

Printing a specified distance in niles 
Name of a block common statement 
Subroutine used to print out engine data 
Angle of wind 


Torque corresponding to the current 
value of APWO (fraction of wide open throttle) 


Array of constant % wide open throttle 
required to drive segaents 

Eear axle ratio 

(RAR) * (RAR) 


OQutput capacity factor of the torque 
converter 


Array of road coefficients for the 
route segments 
Route comment array 


Function used to get the number of characters in a string 


ARRAY OF LENGTHS FOR THE ROUTE SEGMENTS 

Road load 

SUBROOTINE 

Compand to allow the user to obtain an engine map printed 
out at the speed & torgue points that he specifies 


rather than at the points as input initially. 


Command used to rename the output file 


RD 


RDLD 


RGRADE 


REPCEHD 


RHPD 


RNA HE 

RWA MEO 
ROADC 

RPS1 


RPS2 
RPH20 


RPMAX 


RPHC 


RTE" 
RTHR 
RUN ID 


RVWIWD 


Relative distance of a given segments 


Road load 


Array of grades for the route segments 


Remap command loads engine data from parts data file, 
converts units if necessary, remaps data to specified 
speed and load points and print out engine data. 
Distance covered during the given time step 

(used for calculation of absolute distance 

travelled) 

Route name 

Saved route name 

Current road coefficients used during time step 

Speed on engine side of torque converter 


Speed in gearbox side of torgue converter 
Same during previous time step 


Max engine speed given by map 


Speed (rpm) at gear bor input (when clutch 
is activated ? # 607 SIMNCTR) 


Engine speed during current tise step 


Engine speed during previous time step 
Hin engine speed given by map 

Propshaft speed 

Wheel speed during current time step 
Wheel speed during previous time step 
Route ppn 

Route protection 

save the engine speed during a time step 


Relative time for the given segment ss 


Name of a block common statenent 
Rate of change for the throttle 
Common block name which holds thew title array 


The wind speed array associated with the route specs. 


SATH Arrival accelaration to accelerate and hold 
throttle driving segment 


SAVEt Variable used to save the first Hollerith literal 
" a Statement. 
SAV E2 Variable used to save the second hollerith literal 
in a statement 
SCALEN Subroutine used to rescale engine values. 
SCOM ; Shift. logic comment array 
SCRDEV Parameter of the device option in the JPEN 


or close statement indicating the line 
printer as a sratch device. 


SCR FIL Parameter of the FILE option in the 9PEN or CLOSE 
statement which indicates a sragble file 


SCRPPN Parameter of the directory option in the open 
or close statement which indicates the user's project, 
programmers # or a scratch line printer file 


SDEBUG Variable to save the debug command to determine its 
status 
SDELAY Shift time 
SEC Seconds of drive from the start to the current 
tise step 
SECLIS Logical flag indicating that print is to 


be limited to every so many seconds 


SEQIN BR parameter of the access option in the open Statement 
which means that the data base is to be read in a 
sequential access node. 


SEQUOT A parameter of the required option, ACCESS, in the open 
Statement which means that the specified data file is 
to be written in a sequential access sode. 


SHETIS Array of shifts times for the shift lines 
SHFTL Name of a block comgfgon statement 

SHFTNG Shifting flag for whether shifting in progress 
SHP TPT Array of shifts points for the shift line 
SHFTEP Array of shift speeds for the shift line 


SHIFTS Subroutine in which vehicle shifting takes place 


SINCHD 


SINCTR 


SIMSTS 
SIN. 
SIMODE 
SLISIT 
SLOOKP 
SHILE 
SHAHE 
SHGLBS 


souTt 


SPIDLE 


SPIN 


SPPH 
SPROT 


SORT. 


SB 

SRC 
SRD 
SSTIME 


STI HE 


STROKE 


STS CMD 


The SIMULATE command begins the actual 

Simulation It first checks to see all the 

necessary parts have been assembled from the disk 

parts data file by means of use commands or new part 
data and allows the vehicle to reach initial conditions 


specified by the driving scedule. 


Subroutine controls the phases of Sisgulation 


Subroutine used to check the characters entered by the user 
Intrinsic fortran function to take the sine of an argument 
Type or mode of Simulation, e.g. CAR 

Save limit status, summary is default 

Routine to do a table lookup 

Number of shifts per mile 

Shift logic name 

Logical flag for a Single file data base structure 


Array of output speeds (speed ratios/ 
for torque converter 


Enqine idle speed 


Array of input speeds for the torque 
converter 


€hift logic project, programmer number - 
Shift logic protection 


Fortran fne which takes the square root of a real 
argument. 


Speed ratio for current time step 


Array of speed ratios for the coast converter 


ce | em mmm on wee mwwwe drive converter 
Block common name 


Shift time during the current shift being 
per formed 


Engine stroke size 
The status command prints out the status of the siagulationa 


parameters, including the parts that are loaded and all 
modifications. 


THRATE 


THR a2X 
TERRAIN 


oe) = fas Oe 


TEND 
TEST 
TIREPF 


TITER 


TMI Na 


TOT EN 


End elapsed time in seconds of the current 
Initial condition : tine 


driving segment 


Transmission gear comment array 

Temporary total for the energy loss 

Relative end time of current time step if a 
constant velocity driving segment is being executed 
Array of max rates of change 


of throttle settings for driving segment 


Max throttle setting on engine sap 


ns --- 


Fotal energy loss accumulator 


Relative time end segment 

Remaining time to reach the end of segment 
=tire efficiency 

Fergue corresponding to the current value 
of APWO (%WOT required for entire segment) 
Save min engine torgue 

Total energy 

Variable used for the total # of segments in a 
drive schedule. 

Tire comment array 

Tire constart C1*1000. 

Array of input torques for torque converter 
Tire efficiency 

Taget torque 

Run title input by user 

Name of a block common statement. 


Min engine torque 


TAINO 


THA HE 
TOFAST 


TOLD 


TOR BPK 


TORO 
TORQOA 


TOR QAO 


TOROE 


TOR QEO 


TOROF 


TOR OP 
TOR OW 
TORQT 


TORQ2 
TOT EN 


Toot 


TPPNH 
TPROT 
TR 


TRACED 


TRC OM 


TRD 


Same for the previous time step 


Transmission gear nase 

Logical flaq used during a const acceleration 

to determine if the vehicle is not going at a Sonstant 
acceleration. 


Elapsed time at beginning of current time step 


The capacity factor value at the drive converter 
torque break point 


Torque at a current time step. 
Total torque needed by the 
accessories during current time step 


Same at previous time step 


Eequired engine torgue during current time step 
Engine torque during previous time step 

Front end retating inertias 

Propshaft torgue during current time step 

Wheel hub torgue during current time step 


Torque on engine side of torque converter 
during current time step 


Torque on gear box side of see=2ee=] e-ecere 


Array of output torques (torques ratios ) 
for torque converter 


Tire project, programmer ¢ 

tire protection 

Torque ratio used during current time step 
Transmission command enables the user to specify 


an entire transmission by one name rather than by 
naming all the gear individually. 


™he comment associated with a transmission. 


Array of torque ratios for the drive converter 


TWOTO 
TYPE 


UALCHD 


Un 


UNITES 


UNTCHD 


USECHD 


UT 


Transmission nase. 


The project, programmer # associated with a 
transmission 

Rear end rotating inertia torque 

Time spent initializing current driving segaent 


Array of relative end point times for the 
driving segment 


Relative start time of current time step 


Title command, read title and date. 


Current passing clearance time (within 
the given segnent/) 


Logical flag for the terminal. 
B lock common nae. 


Wide open throttle torgue for current 
engine speed setting 


Save wide open throttle setting. 

Name of command read in input routine 

The lock - unlock cosmands with the capability 
od ‘locking up® or ‘unlocking' the torque converter 
for any of the gears in the transmission. 


Component name on input data card 


Zrray used to identify the units used with a 
particular engine. 


The UNIT command allows the user to specify units 
for the engine data printout resulting from a USE 
or ENGINE comssand in units rather than those in 
which it was originally input on the disks. The 
available units are the same as those described in 
the REMAP command. 


The USE command allows the user to retrieve 
data from the disk parts data file. 


Component type on input data card . 


Vehicle velocity at end of current time step 


vo 
V2s8ISC 
vac 
VAL ID2 
VALNEW 
VALUE 
VAL UE2 


VARNANE 
VEYG 
VEHICL 


VEL SEG 


VELTAR 
VERID 


VHA SE 
VOLD 


VPPH 
VPLOT 


VSEG 


VSTART 


VTOT 
VWIHD 
VWINDC 
VWINDS 


wot 


Initial condition: speed 
Block comgon name. 

Vacuum at a current time step. 
Subroutine used to determine a valid part nase... 


Array used to save modified values. 


The new value for modified parameter. 


The second variable value in a real statement. 


Name of single variable value to be saodified 
without reading a new component 


Average vehicle velocity over the entire 
driving cycle 


Vehicle comment array 

Array of terminal speed for drive 
seqments 

Upshift speed. 

Version identification. 

The name of the particular vehicle. 
Absolute velocity at the beginning of the 
current time step 

Vehicle project, programmer # 

Vehicle protection code. 


Array of welocity end points for the 
driving segments 


Relative velocity since beginning of 
current time step 


A sum of a vehicle velocity and wind velocity 


Wind velocity 

Wind velocities parallel to the 

direction of the vehicle (headwind) 

Wind velocity component norgal to the direction 


of the vehicle 


Vehicle weight 


WLSG Number of tires in road contact 


WMASK Array used to contain octal values used 
to get commands. 


WORD ‘Mode of operation (name of the current 
line) within the current data sheet) 
WOR D1 The first variable in a statement pertaining to a 


Hollerith literal. 


WOR D2 The second variable in a statement pertaining to 
a Hollerith literal. 


WRAD | Wheel radius 

x (TORQOJE-THIN) /(TWOT-TMIN) *100 
xrerc Number of cycles. 

XCYL Number of cylinders. 


Last or high values for engine rpa. 


Pirst or low value for engine rpa. 


“Same as ZERO command. 


This command enables the user to zero the core 
mesory containing all data currently stored by the 
program and reset all program flags and pointers. 
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3. FLOW CHARTS 


5-1) 5-2 


fone 
Dann (8 


a 
ft 


3.1 Subroutine SIMINT 


SUSRIUTINE SIMINT 


C ENTRY POINTS: SIMINT 
C SUBROUTINES CALLED: CS5ACK A APT IME. RESETM. SHSZE TS. 
C S{IMLPT. TTYCLR 
Cc CALLED BY: SIMCTR 
Cc EDLT HISTORY 
Cc (6077/SS-4-10-793 CLUTCH 
jc [6123 /3S-6-23-73 MOOLCFY OYN HP 
C P6i4)/35-7-3-73 HESTGGRAM INITIALIZATION 


TEC CTC CTE CE SOCSCCOCTOCPCC$OSC£OCC£$CCLCCC©ELSCCCCCeCO}LOCSCeSCCCoCOCLCC£CCEC. SC ©? H 


[NCLUCE ‘COMMS/NOLIST'" 
1 SCMENSIGN CINVAL( 11) -WGTLIM(C/11) 
| GATA OYNVAL47 1323.25.39 -Se34t 9.950023. 01.2212.-12-7-19.4,13-97 
MeN EMER S25 el Ire 225% ~ CI IS 62525. - 2975-43251 0 S751 - 4251 « 
AMICON OO ed Ao 


ZERO SCUMLCESR TIMES OESTRIBUT SON ARRAY 
CALL ZEROR(GTIMAC.23)) 
Gere HISTOGRAM INIT 
EROP(HIST.1500) 


Hip tepan es aceal Miele tbe NII) 
WPS inte oy AS loo 


CONT - 


WIFCFIRRPM.LT.100. 


-OR. 


MIN 


GN PG 


TOPREM.GT -100 


& MSX RMS 


ial 
w 


2PPM) 


A 
U.) 


CO 20 [R=1.NRPM( IE) 


DO 20 [T=1,29 


MEMSSEMAS CORT SLM) 


LEGhEMe 


-LT-FERTOR ) 


vi 


HGRTGRETEMS 


: | 
ee ney a ah bain a 25 if 


CONTENUE © 


— 
URgataacdae 7c”. TOPROM) SS 
sc 
— a) 
| 
' 
> 
\ ml 
Coma : 
Vw A < Q 
EaNie GN 2G < 
an 3 ~= 
= = > > 


(FCF ERRPM+DELReMeZd. -LT.~TOPROM) 


as, oii apap canny ee ee er Pe 40 v 
CONTINUE ! 


EERRORSORE SXOR SRiIGR ASE TGRO) =i Nee mek 


(NCETIALIZE CONSTANTS TO BE USED GURING A PARTICULAR SIMULATION 


CALL «KPTIMEC 1) 


CALE GET EME G2’) 


GRRE TINEER 


LP Qh CEaNASC., 


AtR=ATA-A'AS( 1) 


CONT. ON PG 8 
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PHi=0. 


\/ 


NSGE9R([.1)=0 | 


a eee i 
NSGEGR'[,2)=0 | 
Yi, a 
(‘COMMENTED GUT TO (NSURE |) 
FQC=.0025168 
AQL=FRC1=WGET 
AQ2Z=FRC2eWCT | 
A93=F9C*COxASES | 


994=WGT/32-17 
995=14./WRIAD | 
RARSQ=RARRRAR | 
99S=881 #( WLSCXATW+RARSORA TP ) 


AA7=B881eRARSS 
AAS=RORKERAR 1) 


SOM UZO Msi 


DYNSOYNVALC CL) 


CONT. ON PG 


3 


ZERO | 


(NITIALIZE ALL ACCUMLATORS 10 


RTHR=400C. 


LLSH=-FS9LSE. 


CUMEN 


=0. 


| 
| 
| 
| 


LJ ud 

NUN Wee eee ee © 

It 5 

(0 pt a ee) feed PO SO OR De Oe 1G Sand sae S 
oe) Oo noo00000 I 
oneuwn evn a wi 
tou ecagepep| (oeousas 

5) iw wooo I 

Reena Th VVUYOVYYYY! [GEGuUKGLUU] [OOGUULGUG 
Lene DW er = ek, 
3 75wm 340 
VUVUIV0O0 
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oO 


Wo - ae 
woo nronact 
FOr Woth Wow 


Pe) e) 


oO 
" 
i 


saTulwonacu 
twa “awmw 
(Us TSE Cer Ele glo Reg 


3 


ON PG 


CONT. 


5-10 


GS TO 300 


CFC VSWING .GT-300.) 


| VSWINCSVWENC | 


——$$ | 


BPER=SRGRADES tie -dt 


ENS Rissa 


Eyal 
es 


ENSRme Sees 


| 
9 


CEN o ON Pe 


oO 


Sotal 


moo 


| 


i 


ROADC=1-9 


BeER=O. 
VSWINC=O- 
PH's0. 

FSERO=0. 


MXNGCNSNUMG#2Z+5 


[ENG=JENG! NGEQR ) 
| ROMESSENMIN( TENG) 


< 


WHEELS 70. 9te car 


ATION SESINS 


Cu HG 


REACH 


INIT LR 


CONCITIGNS 


[SHFTNG=.TRUE. | 


'TS$=0 | 


[F ( NGESR 69 .NGSLE 


‘a2 
GS Sete) 


CONT. GN PG i2 


3-13 


“SHFING=.FOLSE. | 


RPMEG=RPME 
REMWC=REMW 
VOLC=V 
OoT=109C. 


= fie \/ 
CALL GSBACK 


RPMWO=ROMW 


RPMWC=RPEMW 
RPMES=REME 
HORD=TORQANROMEXBS2 | 
HPEG=TOROExRPMExBS2 
H°1G=TORG1 wROM1 e652 
HPZ5=TORQZxROM2xBS2 = | 
H°CLO=TORG2*RPMC B52 
H°PG=TOROP*RPEMeBS2 


HEWC=TORQN*ROMWHBB2 
RRA EGFR mie: 
| FRATCO=FRATERADIO 


| CTIREQ=95S( HOWCNTTTI) 
| ALCSCS=ASS( HE ZI - -HPPO) 
| ALGSRI=ASS( HOG -HeLIC ) 
| ALESCC=ASS! 4829-49 C3 
| ALCSGLO=ASS(HPZS-HELLS) 
| PCTHS=100.w( TORQE-TMING “( THOT-TMIN) 
| ROSS SFOs 
jROMWE = ROM 
we 
Nesmi=ercee: 


Sera SIE 


3-14 


SSRECSERAME/ HEE 


CUMRE=O\. 
| ROLCS(FWHEEL -FSCCE: jxV/37S. 
; WOWSTORQWeRO Mi eG S32 
| SPESTORGENRPMEXBS2 i 


EFFC=SReTP 


Seals 


1040 
VEHICLE WESCHT 


3-16 


QUT OF RANGE FOR OYNAMOMETER 


16 FINS! 


3.2. Subroutine DEBUG 


SUBROUTINE DEBUG 


V 
C ENTRY POINTS: CTRLO. OEBUG 
C CALLED 8Y: GOBACK. SHIFTS. SIMCTR. SIMLPT. SIMSTS 


EET E TEES EE ESEEEEEEEEE SE EOSEEEEESEEPEP CESSES ESEESEEEEEEEESEELEES £1 


\/ 


[NCLUOE ‘COMMS/NGLIST*“ 
(CALL=1 


\/ 


GO 710(900.400.300.400).IDEBUG 


[F ( CUMT-LT-OBEGIN 


IF ( CUMT-GE-OSTOP ) 


GO TO 700 >> 


E 


[SEGA=[SEG+NOSEG 


V 


CONT. ONPG 2 
PG) OF 7 


a= 17 


7 


\/ 
GO TO 900 >> 


<j 


[F [SEGA .GE -[SEG2 


( 


\/ 


GO TO 700 ———e — - i ee 


\/ — 
ie as 


— 


ijl rates 
aa OR 
700 


[F ( [SEG2.NE-0 y 


J 


GOTO 900 te 
\/ 


GO TG 800 


ENTRY CTRLO(HLDNAM) 
[CALL=0 


— = > 4 
FA 1A 

SOU Y, 
[SEGA=1SEG+NOSEG 


y 


CONT. ON PG 3 


3-18 


\/ 
rs 
rT 
\/ 


GO TO 820 


HSMGOE=HUP 


/ 


<r S 


F 
T 


HSMODE=HON 


QJ 


Y, 
HTMODE=HUN 


<— 


V/ 
F 
T 
XQ] 


HTMCDE=HBLANK 


V 
ORPMLE=RPM1 -RPME 


Vv 
CONT- ON PG 4 


3-19 


\/ 
GO TO 850 > oe 


J 


+ 


IL 
To_850_ > 


<j 


V/ 


LPT=IUNIT 


[F( [OBUGC -EQ-1) 


as Y, 
WRITE(LPT.-1700) 


gq 


V/ 


WRITE (LPT-1800) 


V, 
1 CUMT.CUMO.V-ACCEL. FWHEEL-FROLL -FAERO.FACCEL.FGRAOCE. 
2 OT.NGEAR-[SEGA-NRTEA-TORGW.TRR.TGROP-TOROZ.TORG1.TORGF.TORGE. 
3. PCTWOT-HIONAM.ABR. RPMW-ORPMW-RPMP.RPM2-RPME.ORPME. 
4 NGOCAL .MAPOK 


io] 

LSA | 
V ) 
LS 
[SA | 


CONT- ON PG s) 


CONT- ON PG is) 


PGS oF 7 


1 CUMT.CUMO.V.ACCEL. FWHEEL .FROLL .FAERO.FACCEL.FGRADE. 
2 OT .NGEAR. [SEGA.NRTEA-TORGW.TRR.TOROP.TGOROZ.TORG .TOROF.TORGE. 


3 PCTWOT.HIONAM.ABR. RPMW.ORPMW.RPMP .RPM2.RPME-ORPME. 
4 ____NGOCAL, MAPGK 


\/ 
WRITE( JCT.1950) HSMGDE-HTMODE.CUMTLS.CSTIM.TORGA 


<4 


1. TORGAG -ATORGF .ARPME .ORPMIE.RPMC.ORPMC.OTC-LCLTCH | 
P| PS es 8A 
|| tes 


300 Y 


[DBUGO= [DEBUG 
(RETURN 


Ce en ee ea 


Cra FORMAT STATEMENTS 


FORMATO] 


" CUMT.CUMO.V.ACCEL. = WHEEL FROULPRERGUPACCEL FORADE 07 ae 
OT .NGEAR.[SEGA.NRTER.TORGW.TRR.TORGP.TORQZ.TGRG|.TOROF.TORGQE' 
PCTWGT-HLDNAM.ABR. RPMW.ORPMW.RPMP.RPM2.RPME.ORPME'./. 


NGOCAL .MAPGK"./) 


PWN} 
FO8 


FORMAT (/°* @'F9.2,F8.3.1X.F7.3.F10-3" (F)"S(1XGI0-4)/ 


OT‘F6.3°.GEAR'L3°.ORS‘14°. 
PWOT'F8.3°.[0:°AS*.BRK='F7 
GOBACK*.[5.SX. “MAPOK:°.[2) 


(F)°401X69.4)/7_ 


) "FQ. 2.F8.3. DixGT. 3D es 


FORMAT(/* 


CONT. ON PG 7 
BGRERAGE Zl 


a eS ee ee eee 


1-37XG10.4/ 
ie‘ OT‘F6.3°.GEAR‘I3".ORS‘14*.RTE*[4° 
1-735X3(1XG10.4)/ 

2.° PWOT"F8.3°.[0:°AS*.BRK="F7.1° 
3-/35X2(1XG10-.4)/ 

3.° GOBACK*.[5.5X. ‘MAPOK:*.[2) 


3-23/3-24 


(R)*401X%G9.4) 


(T)°401XG9.4) 


ween san eepianed 


* a 
is an 
i 
* bey 
¢ = i F 
= ‘ 5 
} 7) 
: ‘ 
i 
‘ rau Larsen hie ape 
i Tbe mtn 
1" a ' 7 
wey 
f bine a ~ 
a L ey ee ea ’ 
‘ 
/ 
5 i 
* 
“a 


= 


C 
Cc 
C 


3.3 Subroutine CONVTR 


SUBROUTINE CCNVTR LCL | 


V/ 


ENTRY POINTS: CONVTR 
CALLED SY: SSBACK 


V/ 
[NCLUSE ‘“COMMS/NOLIST* 


\/ 


eer 
ee } 


G3 TO 6 


C [ReSCUESSERIGLLOWEST “SREED RAT LO™, 


! 


SR=SRO( Vy 


TReTROCLD 
\/ 
Go 10 390 DE 


3-25 


IF 


4 


\/ 
: 


COMPUTE TEST CRPACITY FSCTOR PRRAMETER 


RATSRPM2/SGR7( TCRO2Z) 


{[F (RAT .LT-TORSPK ) 


+ 


([couGn2oL Se 


i 
! 
if 
| 


SR=SROINTO) 


W7/ 


| 
1d 
J=NTO-1 


CONT. ON PG 3 


+SRO( UP) -! 


Bene ELE pe 
CG TO 30 


CONT. GN PG 4 


i oRi= CSRDIGI =SRUICIRDDICCAKS CIP Ai CURA CRA a SR Ko CUR SRG 
= 


HRS CTR CI) 


25 


CANT. 


3-28 


< S 
i AALS 
i eS 
' 


Vv 


ON PG 5 


-TROC JP) ).( 8KO0 J) -AKOC IP) eC 8 97-9K0 


wis 


CIP eR OWRD 


iC RSM? OT SRE( 1 )=AKEC 11) 


Su | 


7 1} 
‘(G0 To 65 a 


[F SELCW LOWEST SR 


GIVEN AS 


CNPUT 


(F SSOVE HIGHEST SR GIVEN AS INPUT 


JEIePaN 


\/ 
Ca] 
Go TO 75 Some 
[ia ee) 
ie FING CORSECT SEGMENT FOR CURRENT POINT 


CONT. GN 7G ? 


SRSCSRCCIN=5 


a 


E CEES REG RIES me aniinG NU cACun Glin unin enn AG, shox 


LRCSRASHSREONTS) 


SIS BAG 


3.4 Subroutine SHIFTS 


SUBROUTINE SHIFTS _ LOL 


\/ 


ENTRY POINTS: SHIFTS 
SUBROUTINES CALLED: CEBUG 
CALLED BY: SIMCTR. SIMINT 
EDIT HISTORY 


(§21]/SS-S-9-79 ADO NCOLFY LOCKUP GEAR IF OVER A 
SPECIFLED RPME. 


SE HE SAE SE SSE AEE HEE EEE SAE 3 30E Dae a OE AE SA TRE AEA AEE HE AAA MAES AEA AE HAE AO SAA EAL AE EO 


OLIMENSION [GRS(2) 
COUBLE PRECISION CNAME .SNANE -UN.GNANE 

LOGICAL LLSH.PARAB.LGFREE.LPSHF.-LVAC-.LENG.GOAT.LOETY.LDETE 
1 LDETNT-LTRRZ.LOCKUP.LMPH 

COMMGN /OSHIFT/ LMPH.AVEL 

COMMON /V2M[SC/ LOCKUP(20) 

COMMON /COEBUG/ [DEBUG 

COMMON /GET/ UT.UN.NUG( 20) -JENG(20).LENG 


\/ 


COMMON /CONSHF/ LLSH.I[SHFT.STIME 

COMMON /TRORPM/ TOROP.RPMP.TORQW.RPMW.TORG1 -RPM1 

COMMON /SHFTL/ SNAME.SCOMNC16) -GOVPSI[(4)-QUTRPM(4).NGPT.[GF(38), 
i(GT(38),SHFTIM(38)-LGFREE(38),LPSHF(38).EFFST(38)-ABRUPT(38), 
2SHFTPT(10-38).SHFTRP(10.38),-LVAC-LENG.GOAT .NSPTS(38).LOETNT. 
SDETPT(38).CETRPM(38),PARAB,-LOETE-LOETV-GOVLIN 

COMMON /TORCON/ TORBPK.TOROZ2.RPN2.COAST.SR-TR-TRO(20)-SRO( 20). 
iAKD( 20) -NTD-SRC( 20) -AKC( 20) NTC.NTBP.TIN(20),TOUT(20)-SPIN(20). 


V/ . 
2SGUT(20)-NTGRP-COLAM.CNAME .CCOM(16).CONTOR 
Be eee eHRE? RPMAX(2.) -RPMIN(2) NRPM(2)-RPME-.TORGE.FRATE.VAC. 
iTHR.M K, 

i. fERRE.NTOR(2.20).EMAP(20.20.8)-ERPM(2.20) -ENMIN(2).SPIOLE(2) 
COMMON /TMAP/ TORG-LWOT.TWOT-TMIN 

COMMGN /CONST/ FRC1.FRC2.FAC.CD.AREA.VWINO-.WGT -FGC.WRAD.RAR. 
1GRAT(20)-NUMG-NGEAR .ALW-ALP.AL2Z-ERAT( 20) ERAR(2).ALE-ALIA.ALI 
2,BPER.COC.PH[.PSI -ALGIN( 20) -ALGOUT( 20) ,WLSG.LTRRZ 


3.NGRLSS(20),GRPM( 20.20) .GRTORQ@( 20.20) .GNAME( 20) .GCOM( 16) 
COMMON /CNTRL/ [C.TOLO-VOLO.T.V.ACCEL.O.OT 

COMMGN /SEGNO/ITS 

CATA HBEFOR/ "BEFGOR ‘/ 


V 
TURN SHIFT FLAG OFF ANO OETERMINE WHAT GEARS TO UP/OOWN SHIFT TO 


[F REQUIRED 
v 
LLSH=.FALSE. 
J=0 
CG 5S [=1.((NUMG—1 )=2) 


CONT- ON PG 2 


p Cr 
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S) 


V 
CONTINUE 
V/ 
C SET CURRENT VALUES OF SHIFT PARAMETERS TO BE MONITORED 


7 


\/ 


V 


CONT- ON PG 3 


Boga 


T 


V/ 
X=( TORGE-TMIN)/( TWOT-TMIN)™100. 


<4 


\/ 


[F IN CONSTANT PERCENT WOT SEGMENT ANDO THROTTLE [S WIDE OPEN USE 
DETENT OVERRIDE SHIFT CRITERIA 


CONT. ON PG 4 
PG 3 OF 40 


\/ 


\/ 
TG 10 De 


a 


CONT. GN PG S 


PG 4 OF 10 


6 VY 


00 SO iS=1.2 Slo a 3S 5 
TGR=IGRS( IS) 
\/ 
F 


IF (f5.€0-i1-AND. NGEAR.EQ-NUMG ) 


CONT- ON PG Is) 


P¢ SOF 10 


IF ( ¥Y.LT-SHFTRP(1-IGR) ) 


V 


GO TO (60.64),15 


QJ 
= = = Wi zs = f == ———w 
OG 40 [ = 2.(NSPTS(IGR)-1) | 
\V/ 


[F ( Y-GT.SHFTRPCL.IGR) 


) 


IGR)) 


\/ 
(SHFTPT(I-1.-!GR)-SHFTOT(L, 


« (Y-SHFTRP(I.(GR)) | 


__/_(SHFTRP(I-1-{GR)-SHFTRP(L.IGR)) + SHFTPT(L.IGR) 


Vv 


CONT- GN PG 7 


CONT. GN PG 8 


Go 10 SO 


4 08 


40 iV, 
CONTINUE 
Vi 


— VY c 
CONTINUE. | 


RETURN 


CONT- ON PG 9 


CONT. CN PG 


3-41/3-42 


10 


Pn OF . 


3.5 Subroutine ENGINE 


SUBROUTINE ENGINE LOL | 
ay 


-C— ENTRY POINTS: ENGINE __ cg 
c CALLED BY: GOBACK. REMAP 


Te E ESSEC EEEESEEECESEOCSLOSESOEEOCOEESCESCOSCEOCOCETOCEEOSCERE SEES S Se Atm 


\/ 


GOUBLE PRECISION UN 

LOGICAL NORPM.LWOT 

COMMON /GET/ UT-UN-NUG(20).,JENG(20).[ENG 

COMMON /ENGMAP/ RPMAX(2)-RPMIN(2),.NRPM(2)-RPME-TORQE-FRATE.VAC. 


LTHR.-MAPOK. 


LTERSE NTOR(2.20)-EMAP(20.20.8).ERPM(2,.20).ENMIN(2)-SPIOLE(2) 
COMMGN /TMAP/ TORO.LWOT.TWOT.TMIN 


\/ 
C CHECK TO SEE [F RPM [S ON THE ENGINE MAP 


v7 
Kis( LENG—-1 )e4+1 
K2=K1L+1 | 
K3=K2+1 
K4=K3+\ 
CERRE=0 
MAPGK=1 


\/ 


[FCRPME .GE -RPMAX( [ENG) ) 


7 | 


\/ 
GOTO 10 >> 


CONT. ON PG 2 


BGS) Ee 2G 


> 
eae GA 
poo —— = 
[GO TO 20 — ure 
C ENGINE SPEED BELOW MIN ANDO SET TG BGTTOM GF MAP 


ENGINE SPEED OFF MA? [N UPPER OLRECTICN 


L=NRPM( LENG) 


C DETERMINE WHERE ENGINE SPEED [S ON MAP 


faa > 

3A 

om Vi, 
NROUM=NRPM( {ENG ) 


= Vi — -: 
Sig es SE OG 30 f=2.NROUM 
Y 


[FCRPME.LE-ERPM(LENG.[)) 


CONTINUE | 


PRINT ERROR MESSAGE (FE ESLLURE TO FING SPEED SETTING 


CONT. GN ?G 3 
2G 


OF 


WRITE (6-100) TORGE.RPME 


FORMAT (//2X.5X-60( iH™)//2X -33Heaene FALLURE TO FINO RPM SETTING 


1 Lif FOR ENGINE/2X.1SH#emae TORQUE = .E15-7. SX.GHRPM = 
E1S-7/2X -2SHm«men EXECUTION CONTINUES//2X.5X-60( iH#)//) 


2 
WRITE (6-300) [-NRPM( LENG) .ERPM 


300 
FORMAT‘ 2[5/( 10F10-.2)) 


LERRE=1 


LRETURN |! 


(NTERPOLATE ENGINE SPEED BETWEEN TWO MAP SETTINGS 
ANO COMPUTE MAX AND MIN THROTTLE SETTINGS AT THAT 


COSCR2KESEREM CHEN C Op CERAMIC GENE. eM y—-Erint: TENG. 
BPAGR=EMOSICE 20K) + COeCENRR CIM 200K! \-=EMRACL.20. 
SMUNSEN SRG iG ee eC Aa OOM em SEMA OL. 


IF (LWOT ) 


RETURN 


Ai 
CONTINUE 


CHECK FOR TORQUES JFF THE MAP 
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([F( TGRGE .GE-EMAP( iM.29.K1)) 


ee a a 


CF. TORUE.GT-ENA°¢ IM. 1.K1)) 


7 


“GRQUE [S OFF MAP AT UGWMENSIFCREMOWER SPEED SENTING 


=a 
faa 
G3 70 75 7 


CUNT. UN PS 3 


2G 4 JF 19 


| ((0°01501 )/ST0Z/S172 )ibWsos 


(Go° 1=r* CUM’ Pe WT )dBW3)*dOIN* N° (007°9) atiuy 
(//70#K. 109° XS*XZ//S3NNTLINCD NCTINISXS eewmeHSe*X7/L°S13 
WdcHSeXS (25Sts" = shOuOl «weexhSt* Xe7aN2ON3 YOs ONHEL : 


CNid OL Sanita eure’ * X7Z//(#H1 O8* XS‘ XZ itwsod4 


2i3S 3N0soi 


9) S11GM 


(BWet?308C1 ( COZ" 


aren NITE NI ea 
_ SANTINE? 


<M O ela 


3 =< 


\BUCNE? OL O09 >- - --------+------- 


Cal ONS: eOLN-12=N | 


AS Yea6h3° 31" 30801) 4 


,ONTLiLSS O33dS 43M91 NO ON7TIL3SS 3NOXO. YOS HIYBSES 


Se SLROL NOE 
Qa 
g = 
B1=- 
0s 
CSilmr 


C33dS Y3SMO7 gO3 GN3B HOTH Lb acW 430 S? 3NO0UCl 
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LRETURN 


SF Soo 
([NTERPCLATE ENGINE PARSMETERS AT LIWER SPEED SETTING 


1 sEMAP( IM. -K2) 
lV SENRE Cine hs) pes 
1 sEMAPCIM.J -K4) _ 

LOVSEMS RICO M de It) 
2 sEMAP(L4.UP.K2) 

WS Sahil (Eli ow le ols) ) 


v2 =EMAP( iM.J2.K4) i a | 
TO2=EMAP( IM.U?.K1) 
Cl=C102=1dsGen 22a 


FSaF2-cCl«(F2-Fi) 


“Cle i v2-Vi) 
EZQtN») 


iF. TORUE .GE .EMAP( LS .29. 
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EC Careenr 


G) FORSE.RPNE 
DKON ion EMS ee eiGl i .Kse 220) 


RETURN 


C ANNE RR CLAMS RENS NERA ERSMatetcoden ore! Sei 


sEMOP(i.K .K2 —-| 
T3 sEMAPC EK .K3) 
V3 sEMRP(I.K .K4) 
TOSSEMSP( L “K Ki) 
F4 =EMOP(!.KP.K2Z) 
74 sEMAP(! KP.K3) 
V4 sEMPP([.KP.K4) 
TO4SEHAP( I .KP.K1) 


C2=( TO4-7URGE)/( 194-733) 


| FS=F4-C2«,\ F4-F3) 


VS=V4-C2Z#\ V4-V3) 
T5217 4-c2«( 74-73) 
TOS=734-C2 «i TI4-TU2) 


a6 : 
| 


Es=con| 


ee 
Cc [INTERES ES ENG AVES RAR SMEMERSMSETINEEND SREEO sen MNS olism OND cnet 


TORG=TOS-C3*( TI5-TIs) 


VacaVS-c2e(VS- 
TaRSho=C3 et [5< 


ie ae 
| RETURN | 


ARE WWTEROGLAT< SNS SR JLRESS SETTiNSS OF ENGINE PakAmeTe } | 
FF OTHE Ma® | 


Car 


TH SENG?2( 0. 1-K3)+CO¥( EAP! iM, i-K2)-EMAPLL. i-K3)) 
eee SEMA Ge Kai Coe MAP In eivaitoomeMoe oe. © aK) 
aM iivend 
ERs QPS Ne} 
Ss sE 10 


MAPOK=4 


[RETURN | 

23 hie 
(MAPGK=MAPOK+4 

[RE TURN 
el ae 38 


| FRATE=Er Se Tee CA Aare 20 K2)-EM29( 1. 206K2)) | 


r74R = sENBe(T. DOE Ka yeCos(ENee Cit: 2U.43)-2N29( 1.20.K3)) 
VAC =EM8°( 0 .20.K4)4+C0%( EMBP( IM.29.44)-ENGP(5,.20.Ke) ) 
T3RQ=STNCT 
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lANMAARAANAD 


INANMANDA 


PROGRAM SURF3O | 


\/ 

THIS PROGRAM BUILDS R 30 PICTURE FROM YOUR OATR 

He OR SUPPLY SHALL BE [N MATRIX FORM [N (10x%-3(78.2.5x) )F 

N : 

{[F YOU ARE WORKING WLTH ENGINE OATA THERE [5 R PROGRAM MBOOCO1 -FOR 
TRANSFORM YOUR STANOARO ENGINE DATA [NTO AN ARRAY 
OF S-OL[MENSI[GNAL VECTORS ANO STORE ‘EM ON DISK. 
LEFT COLUMN OF THIS MATRIX [5 FOR X. M[OOLE - FOR Y. & RIGHT CCLUMN 


__YOU_CAN RUN THE PROGRAM ON TEXTRONIX TERMINAL. OR YOU CAN USE TAPE. _ 


Vv 

PERLE NUCEVIC 2a 

YOUR OATA NEED NOT BE NECESSERELY ‘A GOGO OATA*. BY THIS WE MEAN THAT 
PERFECT 20 NETWORK. WE OG THE FIXING - BY MEANS GF [TERATISN WE BRI 
ACCEPTIBLE SHAPE. 

THE PROGRAM REQUIRES [NPUT FROM THE TTY THE NUMBERS NX ANDO NY WHICH 


_CORRESPONO TS THE NUMBER GF COLUMNS ANO ROWS [N YOUR X-¢ MATRIX. 


GCIMENSIGN X(200)./(200).z( 200) 


OLIMENSIGN ADAT(2500).Z0AT(25.25) 
CIMENSIGN A(25.25).8(500) 
EQUIVALENCE (A(1.1).B(1)) 


COMMON XL( 4000) 
EQUIVALENCE(XL(1). 


ADAT(1))-(Z01). ZORT(1.i)) 


C SEEECT THE REGTIENG DEVICE 
c CALL UDEV( TTY.‘ TK401S "3 


CALL UODEV( °i6°. “CFFLINE ') 
—— 


— 


THE DEFAULT VALUES FOR NX 


TiRERZS 


ae 


— ee Ne ee 
FORMPT( * (NPUT NX='.$) 
ACCEPT 39. NX 


fS) 26) ANG -EGR Ny fs 


26 


FORMAT(I2) 


CONT. GN PG 2 
PG OF 


40 
| FORMAT( ° {[NPUT NY='.$) 


ACCEPT 30. 
NNX=NX 


NY 


TFCNX NE.) 


GOTO 88 


CONTINUE 


CALL BENPL(9) 


| 


CONT. CON PG 3 
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CALL COMPLX 


CALL BASALF( ‘L/CST*) 


peel 


[CALL MLIXALF( "STAND" ) 


___DEFINE 30 WORKING AREA SND AXES 


(ENGINE MAP)S*. 


CALL TITL3O(" WAP )$*.-100.9-5.6-5) 
wi 
CALL AXES30( ‘RPMS’.i00. TORQUES .100. FUEL RATES .190.10-.i0..8- 


i00.-i10.-i10..8. 
yOu MAY CHANGE THE POINT OF 


VIEW 


CALL VIEW(-200..45 


G.-400) 


CALL SRAF3S(SSC..400..3200-.-100.-49..300.. 


ic FILE VAS-GAT [5 GIVEN RA LOGICAL #33 


INPUT DATA TS BE REAC.- 


GON'T WORRY ABCUT THE NUMBER OF 
PROGREM WILL TAKE CARE GF THIS. 


BES LS oss a5 5 BA 
READC33.4, ENS=S201) X00) FUL) 201) 
C G2 TG THE £70 WINOGW AND GET AN GUTPUT. 
C SEE WETHEREMGURSURE EN Tine RGGHin GRMmAL 
Vv 


CONT. GN PG 4 


by 
WRITE(3.4)-X(1),7(2).Z01) 


4 
LFORMAT( 10x .3(F8.2,5x)) | 


CALL GETMAT(X.Y.ZOAT.i.8) 


ae ee 


203 
CONT [NUE 


V 
CALL ENOMAT(A.B) 


> 


NOW WE GONNA ORAW THE SURFACE. BE PREPARED! 


CALL SURMAT( ZDAT.1.-NNX.i-NNY-ADAT ) 


> 


| 
[CALL SASH : fips 


SOM vOv=aies DS 


< | — - - - 


CALL BSHIFT(XDEL.O) 


COLL RLVEC3(3009..500..ZDAT(NNY.1i)-.3000..50G-..6-.0) 


GREER REVEESCAS 90 ZOO Ol 


(| <DEL=X9EL+0-G1 


$ 


CENT. GN PG S 
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es) ey BS 


id 
CONT [NUE 


& 


(CALL RESET( “BSHIFT*) 


EeORD 


CALL INTAXS 


pera 


CRURI TEE CIN eno ni OM OL Oey) 


CALL ENOIGRIO) 


CALL ENOPL(O) 


ome 


Pc eg 


CSLL OGNEPL 
eee 


i =NO 


PGS FINAL 


4-18 


THIS PROGRAM BUILDS 9 20 PICTURE FSSGM YOUR OATA ON A “THREE OLMENSIONA 
[T ORSWS THE CONTOUR LINES ON THE X-Y PLANE (SO-CALLED EQUIPSTENTLAL 
ae 1Sk8 YGU SUPPLY SHSLL BE (IN MSTREX FORM (IN (10x.3(79.2.5x) FOR 
N SISKB. 

ff ¥GU ARE WORKING WITH ENGINE OATA THERE [S A PROGRAM MBOOCi-FSOR 
TRANSFORM YOUR STANCARD ENGINE DATA INTO AN ARRAY 

OF S-OfMENSI[ONAL VECTORS ANG STORE’EM ON SISK. 


ANANNANDNAN 


GER CSEUNN TOR: HSMM mRIGXke LSM ROR Eke “MSOSCE 


YSU CAN RUN THE ON STEXTRONEX TERMONAL. CR YIU CAN USE TAPE- 
TERE UGE OMS 

WOUR OAMEUNEEDANGT GE NECESSERELY "A GSO SATA”. SY! THES we ESN TH 
BENRECT (20 ONETHUORK- WE OS THE REXING - SY MEANS) SE 'TESAT ION WE SRI 
ACEESTIBCES SRS E:. 

TMHERENGCRAMBREGULRES MON UT PROMOS HE DTT y THE AUUICE <s NX ANS NY RECH 

CGRRESPONS 10 THE Nu MBER OR COLUMNS VANS ROWS IN (CUR X-Y HATRIX. 


PROGRAM 


OMAMMOMM 


Ee [NC ) SL 


SuMGN Sates c 
EQUA EEN GE 


cr 
= 


c 5 - ’ r 


ANG 


GRRE 


=) 


rt 
bie 


FORMST( ° (NPUT NY=".3) 


ACEEST  30r INN 


CALL BGNPL(C) 


CALL [NTAXS 


GREE ZAMANETSO. 3 


—$—$ > 


[CRLL CAMEL 


Ac = 
CAB URS ISR r Gr Ae Sie 
Cae nee NOTING 9 
Se ES ae) CRIS NG. SNS) 


c va) 


3 Om CERI GC ENEMY SSN Siero 
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ENS 


BGNMSTONX.NT) 


eae 


CO NOT WORRY ASOUT THE = CF OATA 73 5E EAD. 
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THIS PROGRAM ORAWS CONTUR LINES ON THE 
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